BYTE ACCSCB,B; INTEGER IB(10),I,J,BB; EQUIVALENCE (B,BB)

BB=0

DO I=0,90,10; {
   DO J=0,9; {
      B=ACCSCB(I+J)
      IB(J+1)=BB }
      
   WRITE(5,10) I,(IB(J),J=1,10); 10 FORMAT(11I6) }

STOP
END
